min_max <- function (inpath, test, para, outpath) {
  
  ## Daten einlesen 
  data <- read.csv(inpath)
  ## min/max berechnen
  out <- type(data[para],na.rm=T)
  ## Wert ausgeben
  write.table(out, outpath)
  
}

## Beispiel
min_max("C:/Users/Sascha/Documents/Uni/Vertiefungsstudium/Vertiefung/development/Projektarbeit/ki_0000foc3_000rug_201110010000_201110312355_eat_ca05_cti05_0005.dat",max,"Ta_200","C:/Users/Sascha/Documents/Uni/Vertiefungsstudium/Vertiefung/development/Projektarbeit/output.txt")
